home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed23.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  786b  |  29 lines
  1. 10 POKE53280,0:POKE53281,0:REM 90:02:15
  2. 20 PRINT"[147][156]   ** TPUG EDUCATION PROGRAM (C)ED-23 **"
  3. 30 PRINT"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 40 DIMA$(15)
  5. 50 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
  6. 60 INPUT"CHOOSE(1-15):";A$
  7. 70 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO60
  8. 80 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
  9. 90 FORT=1TO1500:NEXT:PRINT"[147]  LOADING......  "A$(A)
  10. 100 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
  11. 110 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
  12. 59999 :
  13. 60001 DATA "THE BUS BARNS"
  14. 60002 DATA "BD'S MATH TUTOR"
  15. 60003 DATA "HANG MATH"
  16. 60004 DATA "MATH MAZE"
  17. 60005 DATA "ADDING QUIZ"
  18. 60006 DATA "MILLIONAIRE"
  19. 60007 DATA "TAXMAN"
  20. 60008 DATA "SS ENTERPRISE"
  21. 60009 DATA "SPACE WARP 1"
  22. 60010 DATA "SPACE WARS 5"
  23. 60011 DATA "SPACE WARS 10"
  24. 60012 DATA "MATH IQ"
  25. 60013 DATA "TIMED TIMES"
  26. 60014 DATA "DRAG RACE"
  27. 60015 DATA "MORE GAMES"
  28. 60016 REM WHC 91:07:14
  29.